﻿
Partial Class admin_members
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Roles.IsUserInRole("Role_Uni_Admin") Then
            Dim uni_id As Integer = ACSService.getAdminUni(Membership.GetUser.ProviderUserKey.ToString)
            UniID.Value = uni_id
            uniLabel.Text = ACSService.getUniName(uni_id)
            DropDownList1.Visible = False
            'GridView1.DataSourceID
            GridView1.DataSource = SqlDataSource3
            GridView1.DataBind()
            'GridView1.DataMember = "ID"
        ElseIf Roles.IsUserInRole("Role_Super_Admin") Then
            GridView1.DataSource = SqlDataSource1
            GridView1.DataBind()
            'GridView1.DataMember = "ID"
            uniLabel.Text = "Global"
        End If
    End Sub

End Class
